home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 70 / 070.d81 / alphabet art (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  182 lines
  1. 100 poke53280,.:poke53281,.
  2. 120 gosub60000
  3. 130 :
  4. 140 poke55,120:poke56,55:clr:a$=""
  5. 150 ifpeek(51458)=201then200
  6. 160 sys57812"unpacker.89",8,0:poke780,.:poke781,.:poke782,201:sys65493
  7. 170 sys57812"package.o",8,0:poke780,.:poke781,80:poke782,195:sys65493
  8. 190 :
  9. 200 ip=50000:unpack=51456:hgr=51459
  10. 210 ps=50006:rem 'picture save'
  11. 220 :
  12. 230 dim c$(7)
  13. 250 c$(1)="":c$(2)="[153]":c$(3)="":c$(4)="[159]":c$(5)="[154]"
  14. 255 :
  15. 265 :
  16. 270 forx=1to26 : gosub1810
  17. 280 f$=chr$(64+x)+".shp"
  18. 290 sys57812f$,8,0:poke780,.:poke781,.:poke782,64:sys65493
  19. 300 :
  20. 308 gosub1910
  21. 310 ifa$="q"ora$="[209]"thengosub1250
  22. 312 :
  23. 330 gosub2000
  24. 340 kk=0:poke198,0
  25. 355 ifz3=0then360
  26. 357 z4=z4+1:z4=z4and15
  27. 358 poke53281,z4
  28. 360 kk=kk+1:geta$:ifa$=""andkk<800then355
  29. 370 ifa$="q"ora$="[209]"thengosub1250
  30. 380 ifa$="s"ora$="[211]"then470
  31. 390 ifa$<>chr$(133)then410
  32. 400 z1=z1+1:z1=z1and15
  33. 405 poke53280,z1:goto340
  34. 410 ifa$<>chr$(134)then416
  35. 412 z2=z2+1:z2=z2and15
  36. 415 poke53281,z2:goto340
  37. 416 ifa$<>chr$(135)then420
  38. 417 z3=z3+1:z3=z3and1:goto340
  39. 420 syshgr:print"[147]":poke198,.:next x
  40. 430 goto270
  41. 440 :
  42. 450 rem save koala pic
  43. 460 :
  44. 470 sys hgr
  45. 480 poke53280,.:poke53281,.
  46. 490 print"[147][154]":poke214,11:print
  47. 500 print"   [211]ave this unpacked picture? (y[154]/n[154])"
  48. 510 geta$:ifa$=""then510
  49. 520 ifa$="[217]"ora$="y"then 560
  50. 530 ifa$="[206]"ora$="n"then 330
  51. 540 goto 510
  52. 550 :
  53. 560 print"[147][154]":poke214,9:print
  54. 570 print"  [197]nter file name you wish to save as."
  55. 580 :
  56. 590 print"       [206]ame : ---------------[145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][193][146]";
  57. 600 ln%=14:sp$="                "
  58. 610 gosub680:ifnm$=""then490
  59. 620 nm$=left$(chr$(129)+nm$+sp$,15)
  60. 630 print"[154]         [201]s this correct? (y[154]/n[154])"
  61. 640 geta$:ifa$=""then640
  62. 650 ifa$="y"ora$="[217]"then 790
  63. 660 ifa$="n"ora$="[206]"then 490
  64. 670 goto640
  65. 675 :
  66. 680 rem --- input routine ---
  67. 690 nm$="":x%=0:c%=peek(646)
  68. 700 print"[152][164][157]";:poke646,c%
  69. 710 geta$:ifa$=""then710
  70. 720 a%=asc(a$)
  71. 730 ifa%=20andx%>0thenx%=x%-1:nm$=left$(nm$,len(nm$)-1):print" [157][157]";:goto700
  72. 740 ifa%=20then710
  73. 750 ifa%=13 then print" ":return
  74. 760 ifx%=ln% then forer=1to2:poke53280,abs(255-peek(53280)):next:goto710
  75. 770 ifa$<" "ora$>"z"anda$<"[193]"ora$>"[218]"ora=34 then 710
  76. 780 nm$=nm$+a$:print""a$;:x%=x%+1:goto700
  77. 790 :
  78. 800 rem -- check for 'file exists' --
  79. 810 :
  80. 820 open15,8,15,"r0:"+nm$+"="+nm$:input#15,er,er$:close15
  81. 830 ifer<>62thengosub1160:goto490
  82. 840 :
  83. 850 rem ---      save pic       ---
  84. 860 :
  85. 920 gosub2000 : nm$=nm$+",p,w"
  86. 930 sys ps,nm$ : sys hgr
  87. 950 :
  88. 960 rem --- check for errors ---
  89. 970 :
  90. 980 open15,8,15:input#15,er,er$,y$,z$:close15
  91. 990 iferthengosub1160:goto490
  92. 1000 :
  93. 1010 rem --    everything ok    ---
  94. 1020 :
  95. 1030 poke53280,.:poke53281,.
  96. 1040 print"[147][154]":poke214,7:print
  97. 1050 print"             [211]aving complete."
  98. 1060 print"   [208]ut the [204][207][193][196][211][212][193][210] disk back in"
  99. 1070 print"     the drive and press [211][208][193][195][197][154]."
  100. 1080 geta$:ifa$<>" "then1080
  101. 1090 open15,8,15,"r0:package.o=package.o":input#15,er:close15
  102. 1100 ifer<>63then1040
  103. 1110 sys hgr:goto420
  104. 1120 :
  105. 1130 :
  106. 1140 :
  107. 1150 rem ---   print dos error msg ---
  108. 1160 :
  109. 1170 poke53280,.:poke53281,.:print"[147]        [129] [196] [201] [211] [203]   [197] [210] [210] [207] [210] !
  110. 1180 [151]214,10:[153]
  111. 1190 a$[178]"print#valrror #"[170][196](er)[170]"print#,"[170]er$
  112. 1200 x%[178]22[171][195](a$)[173]2:[153][163]x%);a$
  113. 1210 [151]214,21:[153]
  114. 1220 [153]"print#        (NULL)ress (NULL)(NULL)atnlenvalprint# to continue."
  115. 1230 [161]a$:[139]a$[179][177]" "[167]1230
  116. 1240 [142]
  117. 1245 :
  118. 1250 o[178][194](53270)[175]16
  119. 1255 [139]o[167][158]51459
  120. 1260 [151]53281,0:[151]53280,0
  121. 1270 [153]"loadcont  atnre you sure you want to quit? (ycont/ncont)"
  122. 1280 [151]198,0:[146]198,1:[161]ag$
  123. 1290 [139]ag$[178]"y"[176]ag$[178]"(NULL)"[167]1330
  124. 1295 [139]o[167][158]51459
  125. 1300 [142]
  126. 1310 :
  127. 1320 [143] quit
  128. 1330 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  129. 1340 [139]er[179][177]63[167][153]"load":[128]
  130. 1350 [153]"loadstopload"[199](34)"hello connect"[199](34)",8"
  131. 1360 [153]"run"
  132. 1370 [151]631,13:[151]632,13:[151]198,2:[128]
  133. 1500 :
  134. 1770 [153]"";
  135. 1800 :
  136. 1810 [151]53281,6:[151]53280,6
  137. 1820 [153]"loadprint#ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^";
  138. 1830 [129]qx[178]1[164]12
  139. 1840 [153]"(NULL)(NULL)";:[130]
  140. 1850 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  141. 1860 [129]lx[178]217[164]217[170]26:[151]lx,([194](lx)[176]128):[130]
  142. 1870 nm$[178]"a."[170][199](64[170]x)
  143. 1880 [159]2,8,2,nm$:[153]"";
  144. 1890 [129]i[178]0[164]1:[158]ip,2,40:[153]""a$
  145. 1900 i[178]st:[130]:[160]2:[142]
  146. 1910 kk[178]0
  147. 1915 [151]214,14:[153]:[153]"list     (NULL)hile the slide is showing..."
  148. 1916 [153]"      asc1 list- changes border color"
  149. 1917 [153]"      asc3 list- changes background color"
  150. 1918 [153]"      asc5 list- toggles light show"
  151. 1919 [153]"       (NULL) list- takes you to (NULL)atn(NULL)val routine"
  152. 1920 [153]"       (NULL) list- quits to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  153. 1925 [151]214,22:[153]:[153]c$(c)
  154. 1930 [153]"(NULL)ress (NULL) to quit - atnny other to continueon":[129]d[178]0[164]5
  155. 1940 kk[178]kk[170]1:[161]a$:[139]a$[179][177]""[176]kk[177]1000[167][142]
  156. 1950 [130]:c[178]c[170]s:[139]c[177]5[167]s[178][171]1
  157. 1960 [139]c[179]1[167]s[178][170]1:c[178]1
  158. 1970 [137]1925
  159. 1980 :
  160. 1990 :
  161. 2000 [153]"load";
  162. 2020 [151]251,64:[151]252,224:[151]253,204
  163. 2030 [158]unpack
  164. 2040 [158]hgr:[151]53280,[194](256[172]216):[142]
  165. 3000 :
  166. 3010 :
  167. 3020 :
  168. 10000 [159]15,8,15,"s0:alphabet art":[160]15:[148]"alphabet art",8:[128]
  169. 60000 [153]"loadfor        atn (NULL) (NULL) left$ atn peek val (NULL)   atn (NULL) (NULL)"
  170. 60010 [153]"open       (NULL)he atnpeeklen's are right$lluminated"
  171. 61000 [151]214,15:[153]
  172. 61110 [153]"  listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre"
  173. 61120 [153]"  print#                                    "
  174. 61130 [153]"              atn(NULL)(NULL)left$atnpeekval(NULL) atn(NULL)(NULL)            "
  175. 61140 [153]"        by mid$ack (NULL)enn    (len) 1990      "
  176. 61150 [153]"        (NULL)ublished on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) #70     "
  177. 61160 [153]"      (NULL)ubscriptions 1-800-831-2694    "
  178. 61170 [153]"           atnll (NULL)ights (NULL)eserved        "
  179. 61180 [153]"                                      "
  180. 61190 [153]"  pokepospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospos"
  181. 61200 [129]t[178]0[164]2000:[130]:[142]
  182.